unit RaSQLiteReg;

interface

uses
  DesignIntf, Classes, Controls, RaSqlite, RaSqliteDsgn, RaGSQLite;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('Rarnu SQLite', [
    TRaSQLiteDB, TRaSQLiteQuery, TRaSQLiteTable, TRaSQLiteUpdateSQL,
    TRaSQLitePragma, TRaSQLiteInlineSQL, TRaSQLiteOutput]);

  RegisterComponentEditor(TRaSQLiteDB, TRaSQLiteEditor);
  RegisterComponentEditor(TRaSQLiteQuery, TRaSQLiteEditor);
  RegisterComponentEditor(TRaSQLiteTable, TRaSQLiteEditor);
  RegisterComponentEditor(TRaSQLiteUpdateSQL, TRaSQLiteEditor);
  RegisterComponentEditor(TRaSQLitePragma, TRaSQLiteEditor);
  RegisterComponentEditor(TRaSQLiteInlineSQL, TRaSQLiteEditor);
  RegisterComponentEditor(TRaSQLiteOutput, TRaSQLiteEditor);

  RegisterPropertyEditor(TypeInfo(string), TRaSQLiteDB, 'Database', TRaSQLiteDatabaseProperty);
  RegisterPropertyEditor(TypeInfo(string), TRaSQLiteDB, 'DefaultDir', TRaSQLiteDirProperty);
  RegisterPropertyEditor(TypeInfo(string), TRaSQLiteDB, 'DriverDLL', TRaSQLiteDLLDirProperty);
  RegisterPropertyEditor(TypeInfo(string), TRaSQLiteTable, 'TableName', TRaSQLiteTableNameProperty);
  RegisterPropertyEditor(TypeInfo(string), TRaSQLiteBaseQuery, 'MasterFields', TRaSQLiteMasterDetailProperty);
  RegisterPropertyEditor(TypeInfo(string), TRaSQLitePragma, 'TempStore', TRaSQLiteStorageProperty);
  RegisterPropertyEditor(TypeInfo(string), TRaSQLitePragma, 'DefaultTempStore', TRaSQLiteStorageProperty);
  RegisterPropertyEditor(TypeInfo(string), TRaSQLitePragma, 'Synchronous', TRaSQLiteSyncProperty);
  RegisterPropertyEditor(TypeInfo(string), TRaSQLitePragma, 'DefaultSynchronous', TRaSQLiteSyncProperty);
  RegisterPropertyEditor(TypeInfo(string), TRaSQLiteOutput, 'OutputType', TRaSQLiteFileTypeProperty);
  RegisterPropertyEditor(TypeInfo(string), TRaSQLiteBaseQuery, 'TransactionType', TRaSQLiteTransactionProperty);
  RegisterPropertyEditor(TypeInfo(string), TRaSQLiteDB, 'TransactionType', TRaSQLiteTransactionProperty);
  RegisterPropertyEditor(TypeInfo(string), TRaSQLiteDB, 'CharacterEncoding', TRaSQLiteCharEncProperty);
end;

end.
